'args = inputbox("x y",args,"10 10")

dim ws
set ws = CreateObject("WScript.Shell")
dim regPath : regPath ="HKEY_CURRENT_USER\Software\MyApp\PADS\"
dim x,y,args
x = ws.RegRead(regPath & "xc")
y = ws.RegRead(regPath & "yc")
args = x &  " " & y

dim scriptpath,ocmd
scriptpath = ws.RegRead(regPath & "PADS_SHORTCUT_ROOT")
ocmd = "cscript """ & varValue & "\Skill\includes\nowToClipboard.vbs"""	
ws.run ocmd, 0, False

	
dim doc
set doc = application.activedocument
dim fileroot,tempFile
fileroot =doc.path
tempFile = fileroot & "\tmp1.mcr"	
dim target
target = "s"
ocmd = target & args		
'create file
fileContent = "Application.ModelessCommand("""& target &""")" & chr(13) & chr(10)
fileContent = fileContent & "DlgModelessCmd.Command = " & chr(34) & ocmd & chr(34) & chr(13) & chr(10)
fileContent = fileContent & "DlgModelessCmd.OnOk()"		
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
set fw = fso.createtextfile(tempFile, True)
fw.write fileContent
fw.close
set fw = nothing
set fso = nothing
Application.RunMacro(tempFile)
'doc.ActiveView.SetExtentsToSelection 
doc.ActiveView.Pan args
set ws = nothing	